home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
util
/
edit
/
jed207.lha
/
src
/
jed.lha
/
housekeeping.c
< prev
next >
Wrap
C/C++ Source or Header
|
1992-11-02
|
11KB
|
389 lines
/*
* HOUSEKEEPING.C
* (c) 1992 J.Harper
*/
#include "jed.h"
#include "jed_protos.h"
Prototype VOID keepposaddx (WORD);
Prototype VOID keeppossubx (WORD);
Prototype VOID keepposaddy (LONG);
Prototype VOID keeppossuby (LONG);
Prototype VOID keeppossplity (VOID);
Prototype VOID keepposjoiny (VOID);
Prototype VOID resyncx (VOID);
Prototype VOID resyncy (VOID);
Prototype VOID resyncxy (VOID);
Prototype VOID resetallviews (TX *);
Local VOID scrollvwup (VOID);
Local VOID scrollvwdn (VOID);
/*
* The next few routines deal with updating the various references to
* coordinates throughout the views after chunks have been deleted and
* inserted.
*/
VOID
keepposaddx(WORD addx)
{
TX *tx = CurrVW->vw_Tx;
VW *thisvw;
MARK *thismark;
WORD xpos = CurrVW->vw_CursorPos.pos_Col;
LONG ypos = CurrVW->vw_CursorPos.pos_Line;
#define upd(x,y) if((y == ypos) && (x >= xpos)) x += addx
for(thisvw = (VW *)tx->tx_Views.mlh_Head; thisvw->vw_Node.mln_Succ; thisvw = (VW *)thisvw->vw_Node.mln_Succ)
{
upd(thisvw->vw_CursorPos.pos_Col, thisvw->vw_CursorPos.pos_Line);
upd(thisvw->vw_AutoMark.pos_Col, thisvw->vw_AutoMark.pos_Line);
upd(thisvw->vw_Block[0].pos_Col, thisvw->vw_Block[0].pos_Line);
upd(thisvw->vw_Block[1].pos_Col, thisvw->vw_Block[1].pos_Line);
}
for(thismark = (MARK *)tx->tx_Marks.mlh_Head; thismark->mk_Node.mln_Succ; thismark = (MARK *)thismark->mk_Node.mln_Succ)
{
upd(thismark->mk_Pos.pos_Col, thismark->mk_Pos.pos_Line);
}
#undef upd(x,y)
}
VOID
keeppossubx(WORD subx)
{
TX *tx = CurrVW->vw_Tx;
VW *thisvw;
MARK *thismark;
WORD xpos = CurrVW->vw_CursorPos.pos_Col;
LONG ypos = CurrVW->vw_CursorPos.pos_Line;
#define upd(x,y) if((y == ypos) && (x >= xpos)) { if((x -= subx) < xpos) x = xpos; }
for(thisvw = (VW *)tx->tx_Views.mlh_Head; thisvw->vw_Node.mln_Succ; thisvw = (VW *)thisvw->vw_Node.mln_Succ)
{
upd(thisvw->vw_CursorPos.pos_Col, thisvw->vw_CursorPos.pos_Line);
upd(thisvw->vw_AutoMark.pos_Col, thisvw->vw_AutoMark.pos_Line);
upd(thisvw->vw_Block[0].pos_Col, thisvw->vw_Block[0].pos_Line);
upd(thisvw->vw_Block[1].pos_Col, thisvw->vw_Block[1].pos_Line);
}
for(thismark = (MARK *)tx->tx_Marks.mlh_Head; thismark->mk_Node.mln_Succ; thismark = (MARK *)thismark->mk_Node.mln_Succ)
{
upd(thismark->mk_Pos.pos_Col, thismark->mk_Pos.pos_Line);
}
#undef upd(x,y)
}
/*
* Whole lines only please
*/
VOID
keepposaddy(LONG addy)
{
TX *tx = CurrVW->vw_Tx;
VW *thisvw;
MARK *thismark;
LONG ypos = CurrVW->vw_CursorPos.pos_Line;
#define upd(y) if(y >= ypos) y += addy
for(thisvw = (VW *)tx->tx_Views.mlh_Head; thisvw->vw_Node.mln_Succ; thisvw = (VW *)thisvw->vw_Node.mln_Succ)
{
upd(thisvw->vw_CursorPos.pos_Line);
upd(thisvw->vw_AutoMark.pos_Line);
upd(thisvw->vw_Block[0].pos_Line);
upd(thisvw->vw_Block[1].pos_Line);
if(thisvw != CurrVW)
{
upd(thisvw->vw_StartLine);
}
}
for(thismark = (MARK *)tx->tx_Marks.mlh_Head; thismark->mk_Node.mln_Succ; thismark = (MARK *)thismark->mk_Node.mln_Succ)
{
upd(thismark->mk_Pos.pos_Line);
}
#undef upd(y)
}
/*
* Whole lines only please
*/
VOID
keeppossuby(LONG suby)
{
TX *tx = CurrVW->vw_Tx;
VW *thisvw;
MARK *thismark;
LONG ypos = CurrVW->vw_CursorPos.pos_Line;
#define upd(y) if(y > ypos) { if((y -= suby) < ypos) y = ypos; }
#define upd2(x,y) if(y >= ypos) { if((y -= suby) < ypos) {y = ypos; x = 0; }}
for(thisvw = (VW *)tx->tx_Views.mlh_Head; thisvw->vw_Node.mln_Succ; thisvw = (VW *)thisvw->vw_Node.mln_Succ)
{
upd2(thisvw->vw_CursorPos.pos_Col, thisvw->vw_CursorPos.pos_Line);
upd2(thisvw->vw_CursorPos.pos_Col, thisvw->vw_AutoMark.pos_Line);
upd2(thisvw->vw_Block[0].pos_Col, thisvw->vw_Block[0].pos_Line);
upd2(thisvw->vw_Block[1].pos_Col, thisvw->vw_Block[1].pos_Line);
if(thisvw != CurrVW)
{
upd(thisvw->vw_StartLine);
}
}
for(thismark = (MARK *)tx->tx_Marks.mlh_Head; thismark->mk_Node.mln_Succ; thismark = (MARK *)thismark->mk_Node.mln_Succ)
{
upd2(thismark->mk_Pos.pos_Col, thismark->mk_Pos.pos_Line);
}
#undef upd(y)
#undef upd2(x,y)
}
/*
* Use when splitting a line into 2, cursor should be at position of split
*/
VOID
keeppossplity(VOID)
{
TX *tx = CurrVW->vw_Tx;
VW *thisvw;
MARK *thismark;
WORD xpos = CurrVW->vw_CursorPos.pos_Col;
LONG ypos = CurrVW->vw_CursorPos.pos_Line;
#define upd(y) if(y > ypos) y++
#define upd2(x,y) if((y == ypos) && (x >= xpos)) { x -= xpos; y++; } else if(y > ypos) y++
for(thisvw = (VW *)tx->tx_Views.mlh_Head; thisvw->vw_Node.mln_Succ; thisvw = (VW *)thisvw->vw_Node.mln_Succ)
{
upd2(thisvw->vw_CursorPos.pos_Col, thisvw->vw_CursorPos.pos_Line);
upd2(thisvw->vw_AutoMark.pos_Col, thisvw->vw_AutoMark.pos_Line);
upd2(thisvw->vw_Block[0].pos_Col, thisvw->vw_Block[0].pos_Line);
upd2(thisvw->vw_Block[1].pos_Col, thisvw->vw_Block[1].pos_Line);
if(thisvw != CurrVW)
{
upd(thisvw->vw_StartLine);
}
}
for(thismark = (MARK *)tx->tx_Marks.mlh_Head; thismark->mk_Node.mln_Succ; thismark = (MARK *)thismark->mk_Node.mln_Succ)
{
upd2(thismark->mk_Pos.pos_Col, thismark->mk_Pos.pos_Line);
}
#undef upd(y)
#undef upd2(x,y)
}
/*
* Use when compacting 2 adjacent lines into one
*/
VOID
keepposjoiny(VOID)
{
VW *thisvw = CurrVW;
TX *tx = thisvw->vw_Tx;
MARK *thismark;
LONG ypos = thisvw->vw_CursorPos.pos_Line;
WORD xpos = thisvw->vw_CursorPos.pos_Col;
#define upd(y) if(y > ypos) y--
#define upd2(x,y) if(y > ypos) { if(y == ypos + 1) x += xpos; y--; }
for(thisvw = (VW *)tx->tx_Views.mlh_Head; thisvw->vw_Node.mln_Succ; thisvw = (VW *)thisvw->vw_Node.mln_Succ)
{
upd2(thisvw->vw_CursorPos.pos_Col, thisvw->vw_CursorPos.pos_Line);
upd2(thisvw->vw_AutoMark.pos_Col, thisvw->vw_AutoMark.pos_Line);
upd2(thisvw->vw_Block[0].pos_Col, thisvw->vw_Block[0].pos_Line);
upd2(thisvw->vw_Block[1].pos_Col, thisvw->vw_Block[1].pos_Line);
if(thisvw != CurrVW)
{
upd(thisvw->vw_StartLine);
}
}
for(thismark = (MARK *)tx->tx_Marks.mlh_Head; thismark->mk_Node.mln_Succ; thismark = (MARK *)thismark->mk_Node.mln_Succ)
{
upd2(thismark->mk_Pos.pos_Col, thismark->mk_Pos.pos_Line);
}
#undef upd(y)
#undef upd2(x,y)
}
/*
* These routines are called to recalculate the cursor's position on the
* screen, they handle all scrolling (vertical and horizontal)
*
* refresh() should be called after any of these functions.
*/
VOID
resyncx(VOID)
{
VW *vw = CurrVW;
while((vw->vw_CursorPos.pos_Col - vw->vw_StartCol) >= vw->vw_MaxX)
{
vw->vw_StartCol += vw->vw_XStep;
vw->vw_RefreshType |= RFF_ALL;
}
while(vw->vw_CursorPos.pos_Col < vw->vw_StartCol)
{
vw->vw_StartCol -= vw->vw_XStep;
if(vw->vw_StartCol < 0)
vw->vw_StartCol = 0;
vw->vw_RefreshType |= RFF_ALL;
}
}
VOID
resyncy(VOID)
{
VW *vw = CurrVW;
WORD y = vw->vw_CursorPos.pos_Line - vw->vw_StartLine;
if(y < 0)
{
if((y == -1) && (!(vw->vw_RefreshType & RFF_ALL)) && (!vw->vw_Sleeping) && (!vw->vw_DisplayLock))
{
LINE *newline = vw->vw_Tx->tx_Lines + vw->vw_CursorPos.pos_Line;
scrollvwdn();
pentoline(0);
drawline(newline, vw->vw_CursorPos.pos_Line);
}
else
vw->vw_RefreshType |= RFF_ALL;
vw->vw_StartLine = vw->vw_CursorPos.pos_Line;
}
else if(y >= vw->vw_MaxY)
{
if((y == vw->vw_MaxY) && (!(vw->vw_RefreshType & RFF_ALL)) && (!vw->vw_Sleeping) && (!vw->vw_DisplayLock))
{
LINE *newline = vw->vw_Tx->tx_Lines + vw->vw_CursorPos.pos_Line;
scrollvwup();
pentoline(vw->vw_MaxY - 1);
drawline(newline, vw->vw_CursorPos.pos_Line);
}
else
vw->vw_RefreshType |= RFF_ALL;
vw->vw_StartLine = vw->vw_CursorPos.pos_Line - vw->vw_MaxY + 1;
}
}
VOID
resyncxy(VOID)
{
VW *vw = CurrVW;
WORD y = vw->vw_CursorPos.pos_Line - vw->vw_StartLine;
while((vw->vw_CursorPos.pos_Col - vw->vw_StartCol) >= vw->vw_MaxX)
{
vw->vw_StartCol += vw->vw_XStep;
vw->vw_RefreshType |= RFF_ALL;
}
while(vw->vw_CursorPos.pos_Col < vw->vw_StartCol)
{
vw->vw_StartCol -= vw->vw_XStep;
if(vw->vw_StartCol < 0)
vw->vw_StartCol = 0;
vw->vw_RefreshType |= RFF_ALL;
}
if(y < 0)
{
if((y == -1) && (!(vw->vw_RefreshType & RFF_ALL)) && (!vw->vw_Sleeping) && (!vw->vw_DisplayLock))
{
LINE *newline = vw->vw_Tx->tx_Lines + vw->vw_CursorPos.pos_Line;
scrollvwdn();
pentoline(0);
drawline(newline, vw->vw_CursorPos.pos_Line);
}
else
vw->vw_RefreshType |= RFF_ALL;
vw->vw_StartLine = vw->vw_CursorPos.pos_Line;
}
else if(y >= vw->vw_MaxY)
{
if((y == vw->vw_MaxY) && (!(vw->vw_RefreshType & RFF_ALL)) && (!vw->vw_Sleeping) && (!vw->vw_DisplayLock))
{
LINE *newline = vw->vw_Tx->tx_Lines + vw->vw_CursorPos.pos_Line;
scrollvwup();
pentoline(vw->vw_MaxY - 1);
drawline(newline, vw->vw_CursorPos.pos_Line);
}
else
vw->vw_RefreshType |= RFF_ALL;
vw->vw_StartLine = vw->vw_CursorPos.pos_Line - vw->vw_MaxY + 1;
}
}
/*
* This makes all views of this file have their cursor at the top of the
* file, it also refreshes each view.
*/
VOID
resetallviews(TX *tx)
{
VW *thisvw;
VW *currvw = CurrVW;
for(thisvw = (VW *)tx->tx_Views.mlh_Head; thisvw->vw_Node.mln_Succ; thisvw = (VW *)thisvw->vw_Node.mln_Succ)
{
thisvw->vw_CursorPos.pos_Col = 0;
thisvw->vw_CursorPos.pos_Line = 0;
thisvw->vw_StartCol = 0;
thisvw->vw_StartLine = 0;
thisvw->vw_AutoMark.pos_Col = 0;
thisvw->vw_AutoMark.pos_Line = 0;
thisvw->vw_BlockStatus = -1;
thisvw->vw_RefreshType |= RFF_ALL;
thisvw->vw_NonStdTitle = FALSE;
CurrVW = thisvw;
stdtitle();
}
CurrVW = currvw;
refreshallviews(tx);
}
/*
* Scrolls the view one line,
* if there is no block markings on this page a new BitMap is faked --
* with a depth of 1, this (almost) doubles scrolling speed, thanks to
* Adriaan van den Brand for this cool idea.
*/
VOID
scrollvwup(VOID)
{
VW *vw = CurrVW;
struct RastPort *rp = vw->vw_Rp;
if(ScrollHack)
{
struct BitMap *oldbm = rp->BitMap;
struct BitMap newbm = *oldbm;
newbm.Depth = pageinblock() ? 2 : 1;
rp->BitMap = &newbm;
ScrollRaster(rp, 0, vw->vw_FontY, vw->vw_XStartPix, vw->vw_YStartPix, vw->vw_XEndPix, vw->vw_YStartPix + (vw->vw_MaxY * vw->vw_FontY) - 1);
rp->BitMap = oldbm;
}
else
ScrollRaster(rp, 0, vw->vw_FontY, vw->vw_XStartPix, vw->vw_YStartPix, vw->vw_XEndPix, vw->vw_YStartPix + (vw->vw_MaxY * vw->vw_FontY) - 1);
}
VOID
scrollvwdn(VOID)
{
VW *vw = CurrVW;
struct RastPort *rp = vw->vw_Rp;
if(ScrollHack)
{
struct BitMap *oldbm = rp->BitMap;
struct BitMap newbm = *oldbm;
newbm.Depth = pageinblock() ? 2 : 1;
rp->BitMap = &newbm;
ScrollRaster(rp, 0, -vw->vw_FontY, vw->vw_XStartPix, vw->vw_YStartPix, vw->vw_XEndPix, vw->vw_YStartPix + (vw->vw_MaxY * vw->vw_FontY) - 1);
rp->BitMap = oldbm;
}
else
ScrollRaster(rp, 0, -vw->vw_FontY, vw->vw_XStartPix, vw->vw_YStartPix, vw->vw_XEndPix, vw->vw_YStartPix + (vw->vw_MaxY * vw->vw_FontY) - 1);
}